unit Splash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TfmSplash = class(TForm)
    lblMain: TLabel;
    lblProgress: TLabel;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowProgress( pMessage: string );
  end;

var
  fmSplash: TfmSplash;

implementation

{$R *.DFM}

procedure TfmSplash.FormCreate(Sender: TObject);
begin
  lblProgress.Caption := '';
end;

procedure TfmSplash.ShowProgress(pMessage: string);
begin
  lblProgress.Caption := pMessage;
  Application.ProcessMessages;
end;

end.
